home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / block / const.bas < prev    next >
BASIC Source File  |  1993-11-30  |  2KB  |  34 lines
  1. 1000 ' block construction H.IMOTO / IKK VIDEO CORP
  2. 1010 SCREEN@ 1 : COLOR 7,0,,4 : CLS : ON ERROR GOTO 1320
  3. 1020 DIM BP(16,12)
  4. 1030 '
  5. 1040 FOR I=0 TO 180 STEP 20 : RGB=255*I/200 : LINE(240,I)-(290,I+20),PSET,[RGB,RGB,RGB],BF
  6. 1050 LINE(240,I)-(290,I+20),PSET,1,B : SYMBOL(290,I),STR$(I/20),1!,1! : NEXT
  7. 1060 FOR J=0 TO 12 : FOR I=0 TO 16 : X=I*13 : Y=J*7
  8. 1070 LINE(X,Y)-(X+13,Y+7),PSET,1,B : NEXT : NEXT
  9. 1080 MOUSE 0 : MOUSE 1,160,100,1   : A=7 : LINE(240,A*20)-(290,A*20+20),PSET,6,B
  10. 1090 '
  11. 1100 CLS 4 : LOCATE 1,12 : PRINT "何もない部分をクリックすると、セーブ画面になります。"
  12. 1110 WHILE MOUSE(2,0)=0 : WEND : MX=MOUSE(0) : MY=MOUSE(1)
  13. 1120 IF MX>221 OR MY>91 THEN 1210
  14. 1130 '
  15. 1140 WHILE MOUSE(2,0)
  16. 1150 MX=(MOUSE(0) \ 13) : MY=(MOUSE(1) \ 7) : IF MX=MXX AND MY=MYY THEN 1190
  17. 1160 IF MX>15 OR MY>12 OR MX<1 OR MY<1 THEN 1180
  18. 1170 RGB=255*A/10 : LINE(MX*13+1,MY*7+1)-(MX*13+12,MY*7+6),PSET,[RGB,RGB,RGB],BF : BP(MX,MY)=A
  19. 1180 MXX=MX : MYY=MY
  20. 1190 WEND : GOTO 1110
  21. 1200 '
  22. 1210 MYY=A : IF MX<240 THEN 1290
  23. 1220 WHILE MOUSE(2,0) : MX=MOUSE(0) : MY=MOUSE(1) \ 20 : IF MYY=MY THEN 1260
  24. 1230 IF MX<240 OR MY>9 THEN 1270
  25. 1240 LINE(240,MYY*20)-(290,MYY*20+20),PSET,1,B
  26. 1250 LINE(240,MY*20)-(290,MY*20+20),PSET,6,B : A=MY
  27. 1260 MYY=MY
  28. 1270 WEND : GOTO 1110
  29. 1280 '
  30. 1290 CLS 4 : LOCATE 1,12 : LINE INPUT"FILE NAME(拡張子なし) - ",A$ : IF A$="" THEN GOTO 1100
  31. 1300 SAVE@ "data\"+A$+".dat",BP : GOTO 1100
  32. 1310 '
  33. 1320 BEEP : IF ERR=64 THEN PRINT " overwrite? (RETURN → go)" : IF INPUT$(1)<>CHR$(13) THEN PRINT " canceled..." ELSE KILL "data\"+A$+".dat" : RESUME 1300
  34.